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005760 100447 R | | 
: « DUMP CORE MEMCRY TC TTY PRINTER ¢cS4700558 
| : . 7 GCSd8C0sSse 
voe761 oaozood EDUM CALL aI NPG INPUT START LOCATICN (CCTAL? CcSasco0seg 
G05762 007250 R 7 | | —_ 
665763 001000 oJMP eETCP TERMINATION EXIT VIA SS3 CCSEOQCO56L 
GG8764 006zZ21 k 
uoe765 once oJMP sETCP ABORT CCSS109562 
005766 006221 k 
UOS767 o0100U oJMP ght COMMA EXITeeACCEPT IT cces200563 
Gus770 «005771 R a | | 
| *  ONCRYAL RETURN FROM INPG GcSEu0gs6<4 
GU8771 050446 oSTA e€TS1 | C¢85400565 


i 
t 
] 
i 


PAGE 


Q0S772 


GG5773 
GQ5774 
005775 


608776 


065777 
006000 
006004 


966002 
“p06003 


096004 


_ 906005 
906006 
006007 


~—006010 


008011 
906ci12 


006018 


. 96014 
oo6015 
_ GGe01 


—y06047 


oueo20 
goeo2s 
uoec2z 
yoeo2s 


_ g0e024 
QOGe0Zd5 
., GGsces 


(06027 
Ocgecso 
UgGeosl 
Quecd. 


C000. 


o02000 
007404 
010446 
005014 
002000 
007456 
010454 


002000 — 
007354 


015000 


002000 
007416 
001400 
006221 


005145 
005002 


004543 


901020 


(006017 R 
001000 -— 


006003 


002000 


007404 
005041 
001000 


005776 — 


002000 


007250 


g01000. 


006221 
6601000 
206221 
oo1cay 


© 


mee2#t tt ¢© + @ 4 


eC all 
aL DA 
a TAX 
oC ALL 


aL DA 


eCalLe 


oL DA 


eCall 


aJgQgSs 
a INCR 
eT28 
aL L SR 
oJGZ 


adwP 


eCaLh 


a TxA 
eJMP 


aC ah 
odMP 
aJMP 


aJdMP 


PRINT/CRANGE CONTENTS OF 


a INFG 
eE TCP 


eE TCR 


ares 


OUTPUT CR &@ LF 


CUTPUT MEMORY ADDRESS 


ASCII BLANK(SPACE) 


PRINT LOCATION CONTENTS 


INCREMENT X AND PUT INTO Aax 
BINE LENGTH 18 4 LGCATIONS 


NEXT LINE 


NEXT WORD 


CUTPL CR & LF 


MEMORY LOCATION SPECIFIEL EY 


INPUT CCOTAL MEMORY ADDRESS — 
TERMINATION EXIT VIA 882 
ABORT 


COMMA EXIT=ACCEPT IT 


c 


GCSE500566 © 


GCSS600567 
CCSS700568 
Gessacgs6o 


CCSESOOS70 
Ccseocosz7a 


~GC8E100572 


@csezo0s73 


GC5é€300574 


6656400575 
GCS6450576 
Cc5€500577 
GCCSEGOOS7E 


COSE7C0579 


CCSEGLO580 — 
CCSE9C0583 


GC5700058¢ 


~6CCS710058S5 


€¢87200586 


—€C873900585 © 


6037400586 
CC87560587 
6057600586 
6C57700580 
ccs7e00596 
CCS7900598 
Goseocosoe 


ccee100893 


Cofeecgsys 


 Gesesouses 


C 
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(GUe034 


06086 
006087 


006041 
. O04. 
096048 


.. 098046 
008047 


 W06C0S2 


| 006054 
006055 


006062 
006063 
 9ueces 
006065 


- Q06066. 


-GG6067 
~OG6070 
Oue071 


QG6072 


—OGec73 
008074 
006075 
006076 
006077 
oce100 


-goges3 © 
_ 0G60ss 


QG6040_ 


— Q06044 - 
008045 — 


006050 
. G9O082 


06053 


| 906056 
906057 
o06060 | 
006061 


o} 


co0oZ’ 
906034 


005014 


006010 
000275 
002000 
007334 


015000 


002000 


— 007416 


002000 


007250 Ff 


0010900 
006221 


(001000. 
006221 k 


g01g00 
006064 


(050446 


010471 


001010 
006062 


010446 


955000 | 
001000 


006221 


050446 
010471 


oo1010 


006072 
010446 
o55000 
002000 


007404 


005145 
002000 


007456 


001000 
006085 


* 


ECNY 


‘] 


ECNe2 


ONCRAL RETURN FROM INPG 


EQUAL SIGN 


GUTPLT OCTAL WORD 
INPUT CCTAL WORD 
TERMINATION EXIT VIA 983° 


ABORT 


COMMA EXIT==-PRINT NEXT LOCATICA & CGN ENTS 


NCRMAL RETURN FROM INPG WET PERTOD 


aTAx a ; 
eL DAI a?a? 
eCALL = 2OUTA 
oi BA aOei 
eCALL sOtTE 
CALL =a I NFG 
aJMP aE TCP 
aJMP 2eETCr 
aJMP eECN2 
a STA aETSi 
al BA aTSC4 
oJAaZ a%44 
aL LA eETSL 
eSTA aGel 
aJMP eE TCR 
aSTA 2ETSI 
al fA atSC4 
ata? awed 
aL LA eETS2 
a STA aQel 
eCall eCk Tec 
a INCR af45 
eC ae aCUTF 
aduP eECAS 


SAVE INPUT 
TSO4eDIGIT CCUNTER FOR INPG 


GET LAST INPUT 


SAVE INFUT 
TSO4@DIGIT COUNTER FCR INPG 


GET LAST INPUT 
STORE NEW VALUE IN LOCATICN 
CR & LF 


INCREMENT X AND PUT FNTG A ANT X 
PRINT NEXT MEMORY ALDRESS 


i 


FRINT CONTENTS 


ie) 


6056400596 
GCS@500597. 
Gose600s98 


GCS4700599 


658800600 
ecsesaoeo’ 


‘eessoco6o2. 


6059100603 
GC5S200606 
CC5$300605 
6656400606 
GCES500607 — 
6636600608 

6CCEG700609 


GCSS800616 


 CCESSORGILA 


GCECOCO612 


CCECLOCO6LS 
GCEC2Z0N614 
GCéECIONELS 
CC6C400616 ~ 


CC6C500617 
ccéceuoele 
CCEC7O0619 


CCECS8O0SeLE 
CCECSCOG2! 


CCEL0CQG2e 


GCé1100623 
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 G06150 


006150 


006351 


erence eisemenermanest sloth emern drm am 
- 7 : iy hentai tc rari petra eh Aa tt Et AA AA 
3 ‘ 4 
” ‘ } 


Q06152 
906158 
006154 


906185 __ 


Q06156 
006157 


906160 | 
006161 
906162 
OO616S. 


006164 


906201 
“Gbezog 


ygedo3 | 


QGe204 
gu6205 
Q06206 > 


coo0z4 


001000 


006171 
00500! 
680442 
002000 
006161 


000000 


001000 


ef eas 


a 


OUP eiri tir 


fe 
EBGN 


cate 


006156 R 


000000 


902000 


006470. 


050441 


o0z000 _ 
006521. 
601000. 
10616f k 


005101 
050442 
002000 


006161. 


005101 
000000 
006030 


007370 


o55000 


001004 


006152 


ooza000 


007522 


oo00201 


= 


E5G1 


* 
EBGZ 


oCRG 


a dye 


ari 
2a STA 
_ eCabl 


SLT 
ad MP 


~SENTR 
a CALL ; 


a STA 


a Call 


aJmMP 
eIACR 
aSTA 
eCaLe 


oT ACR 


eb L. 
aL CX! 


aSTA 
a JAN 


LSER 
aC ALe 


ARERE NRT GRRE RAM AR SERRE 


20614580 


eEGGi 
cal 

ae SCEON 
2ESZC 


td . ‘ 
oreh 


0 
eESZA 


a fMEM 
eES28 


a (ESZC)e 
203 

2 fCCN 
2ES82C 
aOl 
eofTTY 


eCal 
2060152 


MUST LOAR ANE EXECUTE TESTS FROM CPL CONSCLE 
eOuThe 0201 | 


TTY ENTRY 


CONSOLE ENTRY 
* SCON = 0 
* 


ow 
aeewne 


BETERMINE MEMORY SIZE 

: 

* 

* 

eeawaee EXIT 

TT¥ MODE 

* $CCN & O41 

* $TTY * QI, UNLESS SET 


* BY 
* OPERATOR 


CONSCLE MOLE IF THY DA @ »& 


PRINT ENASLE 


c 


ECé1Z00626 
GCes300625 
Gcés400eze | 
@C61800627 


~—6GC61600626 


6061700629 
GCE18006S6 
CCEITONGTE | 


ccézo006se ~~ 
6662100633. 
—GC62200634— 


6€C6z2300635 
6662400636 
CCE2500637 


CCEZ600638 


c62700639° 


6062800640 
CC6Z9006461. 


Cceél000642 
G06s100643 


€063200644 


CC6IICN SS 
GC63400646 
CCEISC0647 


GC63600648 
CC63700649 
€C63800659 


CCEI9UOESS 
CCEs91065¢ 


6064000653 
GC6410065¢4 


oO 


PAGE 00025 


 -906207— 002000 
006210 007404 
(Q0G6211 ~~ 006080 
006212 006412 
—« 006243 002000 
906214 007445 
~G06¢15 006030 
~  - 9ge2i16 006446 
- 996217 o02000 
zy OGe0 (007445 
906221 006010 
-9G6z222 900207 
006223 002000. 
G06224 007954 — 
G06225 002000 
906226 007522 
_ 906227. 900201 
096230 002000 
O062d1 007381 
Qgses2 902000 
006233 007404 
0062354 902600 
006235 006752 
GG6236 0601000 
G062Z37 O06221 
090240 O84011 
906241 006140 
006242 900212 
yoe243 co10id 
006244 006221 
G064245 906140. 
Q0G6446 oanonc? 
Gue2e47 O01010 
0¢6250 Go62e1i 
GG6251 606010 
Go62e52 o000000 
GGe2s8s 


0061406 


D> =x 


* 
* 
* 
w 
* 
E 


TOP 


ETO4 


es CaALe 


eL EXT 


eCaLl 
aL Ext 
eCabe 


TEST EXECUTIVE SUPERVISOR 


aL BAL 


aCabl 
eCaLe 


eCaLl 
eCaLh 
aC aLl 


aJuP 


aSTAr 
eSuBl 


aJjaZ 
2SUSl 
aJAZ 
el DAl 


9 SU81 


eCUTC 
oMSG4 
eCUTD 
eMSGS 
2cuTD 


20207 


—@QUTA 


eClTHs 020) 


a ENFI 


20uTC 
a INFG 
aE TCP 


eETC4eh 


e02ele 


eETCP 


To 


OUTPUT CR&LF 

THIS IS THE 620 TEST EXECUTIVE 
CUTPUT MESSAGE 

MESSAGES MEMORY SIZE IS =k 


CUTPUT MESSAGE 


TTY BELL 


OUTPUT 


PRINT ENABLE 


ENIT TTY 


INPUT CNE CHARACTER 
ABORT EXIT 


SAVE INPUT 
LINE FEED CODE © 


YES 
CARRIAGE RETURN(OZ189 
YES 

GET CRIGINAL INPUT 


_ a i. 


GC64200658 


GCe4300656 


CC64400657. 


GC64500658 
CCE4600659 


GCE470Q0660 


GC64800668 


6664900662 
CCESO0H66S 
ccési0g66d 


Cces200665 


GCESIOCOG6E 


6C68400667 


COESS00666 
GOEEDD0EES 
ccee1ou67e 

cCeEzZooe7a 


CC6E300672 
COEE4C0673. 


CCEESCOG7A 


GCEE60N675 


CCEE7COE7E 
CC6E800677 


CCEE9C0G7E 


PAGE. 


- G00254 

006285 
906256 | 
006257 


gQg6260 


006261 
906262 
— 900263 


006264 


006265 


"906266 


006267 
006270. 
006271, 
906272 
—- 0062735 _— 
006274 
906275 — 
006276 
906277. 


006300 


006301 


Q06302 
QCOd0S 


006304 


G06005 


006806 


006807 


 996d10 


Qged11 
Quedsi2 


o0ed13 

-yoegi4 
goesis 

GOO316 


006317 
666320 


OCGe321 


Gueded 


(c00026 


000303 
001004 
006323 
006140 
000032 
oo1002 
006323 
006120 
106323 

054002 


005007 
001000 
(006267 
“008636 


005665 
006024 


005761 


005136 


“906323 
005741 


006323 
005404 
006323 
006323 


006327 


006323 
006323 


006323 


005100 
006323 
006323 
005581 
005450 
006323 
006323 
006323 
005713 
006323 
006323 


0 


ee ee se, 


ETBL 


aJAN 


- @SUBI 


a JAP 


ADDI 
aSTA 


a ZERO 


a JMP 


aCaTA 


—atata 
aL ATA 


aCata 
aCaTA 


oe DATA 
alata 


oDAata 
aDATA 
eLATA 
aDAaTA 
aT ata 
oT ata 


“eDATA 


aTatTA 
aCTatTa 
aCatTAa 
aTaTA 
a DATA 
aCatTa 
aDatTa 
oGaTa 
aDaTa 
aL ATA 
aL ata 
oCTata 


oEXIT 
20t2 


aEXIT 


e(ETELAOSZ)0 


ated 
a? 


a 


aE ARG 
aE BRG 
aE CNG 
aEDUM 
a ESPN 


eEXIT | 


2EGCT 
2EXITT 
eINIT 
aEXIT 
e@EXIT 
oELCD 
eEXIT 
eEXIT 
eEXIT 
aE PUN 
aEXIT 
aEXI]T 
eESRC 
eETRP 
eEXIT 
aEXIT 
aEXIT 
esEXRG 
aEXIT 
aEXIT 


INVALID ENPUT 


Zz CHAR 


ENVALIEC INFUT 


INDIRECT ADDRESS FCINTER FCR LTILITY 


Nx KEK CHM DOVES ST POA! TOWMAIO Ww > 


AGLE 


CEEAR REGISTERS AabeXx 


— PRINT/CHANGE PSEUDO A REG 


PRINT/CHANGE PSEUDO @ REG 
PRINT/CHANGE MEKCRY LCCATICH 


“DUMP CORE TO TTY PRINTER 
BINARY 
NOT USED 


DUMP 


TRANSFER 10 SPECIFIED LOCATICN 
NOT USED 

INITEALEZE CORE 

NOT USED 

NOT USED 

LQAD QBJECT TAPE AND TRANSFER TO F OGRAP 
NOT USED 

NOT USED 

NOT USED 

PUNCH A PAPER TAPE CN TTY FLUACH 
NOT USED 

NOT USED 

SEARCH MEMORY 

TRAP 

NCT USED 

NOT USED 

NOT USED 

PRINT/CHANGE PSEYDO X REG 

NOT USED 


NOT USED 


= 


GCE7 000676 
GCE7200680 


067300681. 


Gce7s006e2 


ece7 500683 
Cce76c088s 


CCE7700685 


6667600686 
¢c67900687 


Cceeono6se ~ 
§C6eLO068S 


ccee200699 
CCEES00698 
GceedncEg2 


—6EC6 eS 00ESS 


GCee6ndssd 
GCEE700695 
GCeesn0696 
CO6e900697 
cCeso006gs 
GCESs00699 
CCES20070u 
cCegg00708 


6 GCEGACU70E 


CC€S500708 
€CES600704 


- 6069700705 


CCEGS800706 
6CEG900707 © 
6676000708 
GC7CL00709 
€C7Ce00710 — 


—66C7E 300744 


GC7O640071¢4 
GC7CS5O0713 


—6C7C60Q716 


= 
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oued23 
~—6 006324 
—09ed25 


006326 


06327 


— 906330 
—6ggneddl 


. B06S32 — 
-  Q0ESSS 
906334 — 
 99Esss 


— «—-9N6836 
- 000837 
00640 


 Quedat 
006342 
OG6343 


Q06344 
006045 
O0G346 
006047 
OG6350 


GO6351. 


006352 
906353 
oge3s4 
ooe3ss 


coo027. 


002000 
007475 
001000 


006221 


002000 
007170 
901000 


006221 


“061000 
006221 


001000 
006221 
001000 
006341 


905101 


002000 
100470 
005042 
006030 
006433 
002000 
007445 
005021 


002000 . 


007416 
001000 
O0é6221 


> Ao a oe 


EXIT sCALL 


aJMP 


LOD sCaALL 


20uTG 
aE TCP 


PRINT INVALID & CR/LF 


RETURN TG TOP OF SUPERVISCR 


* 
* 

* 

i | 

* ELCDe=LOAL OBJECT TAPE AND TRANSFER TO TEST PROGRAM 
: ae 

: 

E 


INPUT PERTOD 


TERMINATE EXIT 


“ABORT @XIT 


DELETE PREVICUS CRKAR EXIT 
COMMA RETURNeW@ACCEPT ET 


. NCEMAL RETURN FROM INPF WETH PERIOD 


aINPF 
aJmMP eE TOP 
oJMP = ETOP 
oJNP sE TCP 
oJMP area 
aInNCR = 1 
oJMPM*® LOAD 
oTxa ° 
oLEXI aMSG2 
oCALL seCuTD 
aTBa ® 
eCALL as OUTE 
aJMP eETCP 


c 2 @ © @ € 


SET ANO FOR LOAD AND EXECUTE 
GO TC BINARY LOADER 


SAVE xX 
MESSAGES CHECKSUM ERRCR 


PRINT MESSAGE 


QUTPUT x 


EXEC SUPERVISOR 


TYPICAL FOWER UP/DCWwN SUBROUTINE 


Oo & 


¢C7¢700748 
CC70800716 


€C7€9060717 


6673000718 
GO721L00719 
CC73200720 

GC74900723 
G074400722 


SRT USON7 es 
€0713600724 


€671700725 
GC71800726— 
6071900727 


672000728 


6072100729 — 
Gc72200730 
Go7z300738 

Cc7Z400732 


cc7zs00733 
6672600734 


6072700738 


€072800756 
6074900737 


CC7IQ007 38 


GC7I1L007949 
€¢73200740 
EC7I3007414 
€073400742 
CO7U500748 


bC72EC0744 
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— 906356 
_ 096387 
006360 


006365 


006366 © 


 ogge7” - 
606370 


006571 
000372 


006373, 


006874 
006375 
066376 


— G09977 


006400 


060401 | 


006402 
006463 


~—6906K04 


UuO40s 
906406 
066407 
UCes10 
Guedit 


coo0ds0 


000000 
084025 
064025 
074028 


_ 005001 
} OOBSi1 
084023 -- 


044025 
oo0000 


o1aoat 


901010 


006366 
005003 


054015 


anos 


001010 
006400 
007401 
014004 


024004 


0346004 
001000 


“106356 
po0000 


ooo000 
Qo0000u0 
000000 


00000 


© 


T3282 8 t 


wDA 


eee 8 8 


2ENTR 
aSTtA 
2$78 


eo SFX 
a TIA 
eCata. 
eS PA 
eINR | 


oFLT 


aL tA 
aoJAZ 


oTBA 
aSTA 


el BA 


adhd 


e SCF 


eh DA © 
- oh 8B 


al Gx 
sJMPe 


oLafta 


aD ATA 
aT aTA. 


aT ata 


aL ATA .. 


POWER DCWN INTERRUPT ADDRESS 0406 
PCWER UP INTERRUPT ALDRESS 042 


POKER DCwN PROCESSOR 

af 

aSAVA SAVE A» & AND X REGISTERS 

oSA¥S | oe 3 : . 
aSAVX | ot - | 
e ~ _ CHECK AND SAVE OVERsFLCW CONCITICN 
eQOESid —. _ ENCREMENT A IF OVERFEOW SET 

e s AY o- fen edie ee eet a are et is : . , 

aMLTF. SET POWER FAIL/RESTRT FLAG. 


F 


POWER YP PROCESSOR 


al ee CMECK IF POWERING uP FROM RUA CCADSTI WN 
aP BLT ; 
cee POWER FAIL/RESTRT FLAG 
oKLTF 


COLING TC REINSTATE 620/6 OPTIONAL HARDWARE AFTER A 
POWER FAILUREs MUST GE DEFINED HEREs THE TCTAL EXE UTICN 
TIME NCT TC EXCEED A SPECIFIED TIME PERICRE. S&E P 8 7 
FCR TIMING CONSTRANTS. | 

aSAVO SETUP CVERFLOW FLAG 
axed 


PY 
aSAVA 
aSAVS 
aSAVX 
a PWN 


RETURN As B AND X REGISTERS 


RETURN TO LOCATION INTERRUPTED FROM 


hy 


CO72700748 ~ 


CO7I8007466 


EC72ISOO7 AF 
<o7apberee:. 
6 adborse 
€07420076 
_Cb743007H%. 
Sp carey 
e87a5007 


G07 480075a.° 
GC74700756 


CO74800756 — 
(€C74900757— 
GG7EOCO7Se 
CO7SL00750— 


CE7E200768 © 


GCFEIOOPSS | 


C078400768 | 


CO75800763 | 


= 


- ge7sevoree? 
— CO7S7 OOPS - 


GO7SeCO766 
COzsgco76y 


et76ogo768” 
CO7E100769 


GC7VEZCOI7E 


GCVESOU773 


covesoo773— 
G07€600776 
076700778 | 


€C7€800776 © 
COFERCO777;. 


cizz7ocerre. 


6078400772. 


CC77400779. — 


6677200760 | 


CO77 300788 


CO77400782@ 
CRP SGU7GE. 


© 


ry 


PAGE co0031 


006412 
906413 


— £52340 


144723 


MESSaGE TABLE 


* 
* 
* 
* 
* 
* 
* 
M 


MSG sDATA = s*THIS JS THE 620 TEST EXECUTIVE ’s 010661200 


_ _MSG2 «Data e°CRECKSUM ERROR X *® 50 


‘MSG2 sDATA  9*MEMORY SIZE I8 ° 


_GOE4i4d 120311 
G06415 151640 
006416 £52310 
QQ6417 142640 
006420 133262 
906421 130240 

~A0G422 152905 
Q66425 181724 | 
006424 $20305 
006425 £54305. 
006426 141725 
Q06427 152911 

. O9O490 189905 
Q06431 106612 
006432 00000 
O06495 £41710 
QO06434. 142708 
006435 145728 
009496 152715 
0U6437 120305 
006440 151322 
006441 147722 
U06442 120240 
006443 184240 
006444 136640 
006445 ooo00c0 
006446 146705 
606647 146717 
G0e450 151931 
096451 120323 
006452 144732 
G96453 142640 
006454 144723 


€077600784 
GO77700785 


—6€C77800786 


€077900787 — 
cc7e000788 
GO7ek00789 
¢678200790 


GC7E300791 


CC7840079¢ © 


GC78@SCO793 


Toca 


PAGE. 
906455 


006456 
006457 


006460 


“906461 


006462 


006463 


GO64E4 


006465. 
 Q06466_ 
006467 


006470 


009504 
UVOSEOS 
QOOSce 
CQOS07 
006510 


~UGSS11— 


Co6fle 
OGesis 


UGo814 © 
6 ULGELS 


GusSi6 
GC6817 
oges2o 


Co00se 


120240 
126655 
145640 
106612 
o00000 
120240 
144716 
1535004 
146341 
142240 | 
000000 


000000 
100545 


2 010000 
3. 050002 


005001 
050000 
005311 
006120 
910000 
005014 
0250014 
055001 
015001 
130600 
001010 


006514 k 


065001 
005061 
o01000 
006477 
010002 
osao0c0 
005041 
oo1000 
{06470 k 


© 


MSG4 


MSGS 


me «2 & 


SZA 


ESZi 


ESz2 


aLAaTA 


oLAaTA 


atewK?s0LC6E1200 


2” INVALIO* 20 


RCUTINE FOR DETERMINING CORE SIZE 


#ENTR 
(9 EXC 
oi BA 
STA 
aTBA 
oSTA 
a Tar 
eAndl 


a TAX 
aL fs 
aSTA 
ol BA 
aERA 
oJaZ 


2ST78 
aTtxA 
aJMP 


aL DA 
asta 
a TXA 
ain 


DISABLE MEMORY PARITY INT. 
SAVE CCNTENTS OF LCCAFION ZERC - 


Awei 
NEXT 4K MEMORY ADBERESS 


SAVE MEMORY CELL IN B REG 


JUMP IF END OF MEMCRY 


KESTORE MEMORY CELL 


RESTORE CONTENTS Cr 
LOCATION ZERG 


S 


CC7@600796 


6078700795 _ 


CC75800796 
CO79600797 
6079700798 
cc79e800799° 


-€679900800 


CC7S980604 
6cacddoade 


~~ €0eC100808 


ccac2cgsoa | 
Ccacsogegs | 
CCeC 400806 © 
CC8C500807 


Gcac6oasue 
ccac700a8o9 
Gcacscosie 
Gcecsodes 
ccascogsia 
ccai100a13 


-¢ca1zugeie 


cce@is008is 
cce@1400816 


CCé1500817 
CC@1600818 
CCAI7C0819 
Cla 800820 


GCeyoccees 


(CCEZ0C0822 | 


© 


PAGE 


006521 


00622 


(006525 
QG68e4 
Q06525 
~—006e526 


006827 


venta re 


~ 9OCeS30 


GO6531 


— OC6s32 
006533 


O06836 


—G06535 

U06SI36 | 
006837 | 
“130666 


“006540 
006841 
908842 
O0GES3 
006544 


CO0OSS 


000000 


010441 


004354 
006120 
006535 
o0s014 
015000 


006020 
006456 


956000 
001000 
106521 


(120264 


420270 
130662 


131260 
131264 
131270 
131662 


‘TAR. 


* 


* 
ESZ6 sENTR 
aL BA 

aL SRA 
eADtl 


oTax 
ai BA 
aL Leal 


aSTA 
aJMPs 


aLTATA 
aDaTta 
abATA 
aGAaTA 
oDatTa 
elatTA 
oTAaTA 
oCaTA 


* 
* 
* 
* 
* 
a 
* 
* 
* 
* 
* 
¥ 
* 
* 
® 
® 
* 
bl 
* 


eFTAR 


20120264 
00420270 
20130662 
20130666 
20131260 
201431264 
20idi270 
20191662 


Te - 


* CONVERT MEMORY SIZE FCR ASCII PRINTOUT 


GET CORE S12ZE(X7777) 
TRUNCATE 7777 
ADDRESS OF TRE ASCIE EGUIV TAELE 


GET ASCII EQUIV FRCM TABLE ETAGS 
SET MEMORY SIZE(04se08eETC) INTC MSU4 


RETURN 
ASCII] 04 


RERAAB EZ EKRAKHRKRAEARHERAKEARRAA WAH ER HAH RRRERATEEREEEREEA EEE 


SENSE SWITCH SUBROUTINE 


TIS SUBROLTINE PROVIDES A STANDARD SENSE SwiTCh INTERFACE. 
TE CALLING SEGLENCE IS AS FCLLOWS 


TRE A» Bs AND X REGISTERS CONTAIN ERROR FALY VALUES 
CALL SSWT _ 

DATA (WU REGISTER VALVE) 

DATA (ERROR MESSAGE ADDRESS) (IF NEG. ERRCR SUB. 
DATA (TERMINATION EXIT) 

DATA (LGOP GN ERRCR EXIT) 


* 


NORMAL EXIT RETURN 


Oo 


eae 


s*¢ et #¢+ © @ &@ @€@ #8 et ls 


gcez10082a 


GCEZ2008 24 


Ccezsogses 
CC82400826 © 


0082600827 


ccezéooaze 
ccaz70ue29. 


Gcazacossa 
gcazoooess 
Gcazoooes2. 


CCRIL008SS 
CCELSONSS4 


CCBII0N8SS 
CC83400856 
CC83S008S7— 
GCAU600855 
GC8I700ES9 © 
CC8I8CU84O | 
CCEISOOS41 
GC840008462 


(GCR84 1008498 


CCE4200844 
CC84300845 
C€CE4400846 
€C843500847 
GC84600846 


6084700849 


€C84800850 


—6064900853 


CCesougssa 
GC@S100853 


—6« CRE 200654 


GCéEI008SS 
GCES40N856 
GC@S500857 
CCE&E6CO8SS 
CC8S700859 
CC8ESO086U 
CC&8FS00861 


PAGE 


p00034 - 


OCOEDE 


© 


eeneeeee ee. 


906545 054138 
G06546 064135 
(006547 674135 
906550 001400 _ 
906553 006706 R ~~ 
006552 010442. 
_ 006553 oo1010 
006554 006641 
~ 906555 001100 
906556 006600 
906857 024137 
006860 005122 
06561 016000 
— QO6862 901010 
GO6E63 006600 
006864 905012 
GOeS65 006150 
og6s66 1000U0 
006567 005014 
OG6570 905021 
QOG8&71 001040 
—6906872 «6906575 
006873 001000 
006574 906671 
G06575 o0S014 
096576 Go2000 
GG6277 007445 
yoseoo 001400 
Ubeé601 006706 
010440 


STANDARD SENSE SWITCH SETTINGS ‘ 
SS} (SET) SUPPRESS ERROR PRENTCLT * 
(RESET) ALLOW ERROR PRENTOUTS a 
S$SZ (SET) HALT ON ERROR * 
(IF SET AFTER HALT = CONTINUE ) “ 
(RESET) DO NOT HALT ON ERRCR 1 
(IF HALT ON ERROR SET FIRST TREN RESET Ch * 
HALT CONDITION = LOCF UNTIL SET ) * 
SSI (SET) TERMINATE TEST = RETURN TC GEGINIAG OF T ST * 
- (RESET) CONTINUE TEST a 
‘ AONE NA ERG ERN AUER ERA ERU EATEN EAU ERUREERUEANEEEAS STORE RAE REU RENTS EES aces 
‘SSWP STA = SSS SAVE VOLATILE REGISTERS 
2878 oSSwSel | 
oS TX eSSnSe2 
eJ9$S3 sSSKE IF 8S3 SET RETURN THROUGH TERMINATIC EXI4 
el fA 2 SCON CHECK IF CONSOLE CR TTY MCLE 
wry oSSwn : 
oJ8Si » 8Sw TELETYPE MODE = CHECK IF TTY SUPPR SSEC 
oLDS «2S8ShT GET ZND PARAMETER 
alBR a 
aL BA aQee 
eJthZd eSSwi 
Tan. P CHECK IF BIT 15 SET 
a ANAT 20100000 
aTax P 
aTaA ry 
aJdxé pnd 
—adyP aSSwrR CALL ERRCR SUBROUTINE 
oTaXx r PRINT ERROR MESSAGE 
eCaLL eCuTD 
SSW1 24883 »SSHE IF §S3 SET = RETURN TRROLGR TERMINATI N EX{ 
aL DA a GPLG | . 


— CHECK IF LOOFING 


‘s 


Gceégnus62 


GCaes00863 
gcaezgosed 
GC8ETO08ES 
GC8E 400866 
GCaEsO0S67 
Geaesonees 
CCseé7G0869 
gcaeaous70 


Gce@egoos7a 


¢cé7000872 
€687400873 
¢ce720087¢4 


60873008758 


6687400876 


~—©G087 800877 


¢c@7600878 
6ca7700879 


Gca7accseo 


GCE&7900853 
GCC8E00U882 


—$088100883 


CGCse2odssa 


CCB8EION8SS 
€C8@a@400886 


Ccéeso08es7 
CC68@600686 © 


6066700889 


-ecaescoagG 


CCaeguaEgs 
CCagocdege 


CCESICQE9S 


CCESZUUAGS 


a) 


i 
; 


PAGE 


| “906615 O14 
-. OGGE16 
~~ OQ6E17 Oh 
006620. 
—« GG6621 
_ 006622: 00 
—6«906623 


006624 


 0G6625 90 
006626» 
006627 


QG6630 


— GUS63) 
_ QO66Se. 
_ OGGESS 
006634 
Q06655 
96636 
006637 
GG6E40 
— QOSESY 
~—OGOE42 
QG6643 


Cbe644 
UGO645 
006646 
006647 
GLOéSO 


006651 


GG6ES¢ 
YOotsS 


~—6GG E54 


| i 


Abs 


(G96E03 


oo1010 
006635 
001200 


36 006622 
024107 
005122 
905122 


005122 


016000 


054004 
014052 


024052 


034052 
001000 


006633 k 


001200 


006646 kK 


001000 


006622 R 


010440 
001010 
006635 
001100 
006655 
024050 
016000 
054003 
014031 
0246031 
o34031 
005000 


(S8Wo 


$SwW4 


SSWN- 


SSWs 


atdaZd 


aJsS82 


aL Be 
al@rR 
ol@rR 
elk 
aL DA 
oSTA 
aL BA 
aL BB 


—aLbax 


aJMP 


aTZA 
oSTtA 
aL DA 


eAQDL 


a STA 


aL BA 


Py oA) 
aL BX 


a MP 


9J8S2 


a JvP 


aL BA 
aJAZz 


aJSSi 


aL 2 
aL QA 
aSTA 
aL DA 
el £8 
ab ix 


aNCP 


2SSh4 
eSShs 
aSsntT 
a 
a 


pGed 


Pry] 


— «#888 
‘gSSwSel 
#SShSs2 


eSShSe2 
oe 


2SSh5 


a SSHS 


2 SFLG 
aSSha 


~ 488n6 


#SShT 
eQed 
awed 
2fSws 
eSSnS4)h 
eaSSnwSee2 


© 


LOOPING = CHECK IF TERMINATE LCCPING, 


RETURN THROUGH LCOP EXIT 


RETURN VOLATILE REGISTERS. 


RETURN TO NORMAL EXIT (CONTINUATION e HT) 


CLEAR LOOP FLAG. 


RETURN VOLATILE REGESTERS. 


CHECK IF HALT ON ERROR 


RETURN TG NORMAL EXIT LOCe 


CHECK IF LOOP FLAG ZERC 


GET FIRST PARAMETER 
RETURNED SAVED PARAMETERS. 


1ST PARAMETER STORED HERE AND EXECUTE « 


ro) 


pueseuice? 


GCaeg4o0ss6 


¢casso0ag7 


 ecesenoacs 


CCeS700899 
GCaegaogsoo 
CCaessogg0s 
Gcseocdgos 


Gost ico908 


gose200904 
cese300905 
ccs0400906 


—§090500907 — 
ecotecosas 


Gcgo700909 
ECgC8O0910 


Cogscgagglé 
CCS100091¢ 
GC$31009138 
€CSi1200916 
COSLI00GI5 


GOS1400916 


6061500917 


6051600918 
CCSI700919 


GC918009e26 


Gcos19009a1 
6c9za00922 
COSz100929 
cog2200924 
Goszd00928 
co92400926 


CCSES00927 


PAGE 


Qceéss 
OC6E56 


(006664 


006665 


006666 


"006667" 
006150 


906721 


OGe722 
Q0o723 
096724 
yoe725 


COO0S6 


001400. 


006706 
010440 
001010 


—- 006664 


001000 


006605. 


001200 
006622 
040440 
01000 
006607 
077777 


054004 
014006 


024006 


034006 


006677 


001000 
906600 


008001 
— 050440, 
024006 


005122 
005122 
016000 
054001 
oo1000 


006715 


900000 
001000 
006545 


gog2000 
007317 
006731 
601400 


© 


oo20co 


> La a 


SSwe 


SSWR 


SSWSs. 


SSWE 


SSwWT 


23683 


oLDA 
aJAaZz 


aJMP 


aJ$S82 


a INR 
a JMP 


a ANA! 


aSTA 
ab BA 
oi f8 
ol BX 


a JMPM 


awMP 


sBsSS 
oTZA 
aSTA 
aL Be 
olar 
el BR 
ol ZA 
afta 
oJMP 


asENTR 
aJVP 


a SShE 


a SFLG 
até. 


eSSh2 


28Sue 


eSFLG 


a SSKL 
2077777 
ewes 
aSShS 


e8SwSel 
eSSwSte 


a SSuP 


IF SSS SET RETURN THRCUGK TERMENATIC EXILE 


CHECK IF LOOPING 


LOCP FLAG ZERO © CHECK IF LOCP REGL 87 


INCREMENT LOOP FLAG 
JUMP THROUGH LOOP EXIT 


ERROR SUBROUTINE MASK CLT EIT 15 


CALL. ERROR SUBRCLUTINE 


JUMP TRROUGH TERMINATICN EXIT. 
CLEAR LOOP FLAGe | 


SET UP TERMINATICN EXIT 


SENSE SWITCH SUSRCLTINE ENTRANCE 


INPUT CNE CHARACTER FROM TTY TO (A) REGISTER 


a Cake 


aussie 


eI NPHeT NA 


aITNPA 


SENSE &FR RDY 


= 


ocsz6cng28 
6692700929 


 $CS7800930 | 


6062900931 


— BES20009S2 


-@CSTL0C9SS. 


—$CGTZ009I6 


GOSSS00955 


CCS3400956 
6693500937 
CCSI6009TE 
CCSI700939 
6052800940 


COSIG000dS 


€C¢94060942 


C664100943 


0642009466 


E6$4300945 
6094400946 
€694500947 
€CS4600948 


€CS$4700949 


a a) a 


tty) 


($094800980 


ccgesonss: | 
CCSEO0Q9S2 


CCSS100953 
GCSEZO0954: 
Cco8300955 
6658400956 


css500957_ 


- 


PAGE 600037 | | | | i, om | a 
006726 106736 R 


006727 ao1000 og UMP aINAt eS | B €C$S600958 
906730 006722 k : . | Ts | | : 
006731 G02000 =I[NAz sCaLL  sINPI INPUT CHARACTER © B COSE700959 
006732 007331 k = | 7 
006733 044002 oo INR a INPA NORMAL EXIT  & CCSesoos6g 
OU6734 044001 a INR a INPA 3 | | | B GO9E90096% 
906735 c01000 | oJMP Pas a -* 8 €CSE000962 
006736 00000 | | | : oe 
906736 -~ ss ENPA 9 GES Pe | ENTER , B 6CSE€800963 
~~ 906737 901000 aJMP gg INAS oe | a | GCG E SCONES 
006740 006722 R | | , - _ | 3 
* | | | | | CCSEION96B 
| * INPUT CNE CHARACTER + PRINT FROM TTY TO A REGISTER 6098400966 
| | * | | | | ¢CSe800967 
006744 _ 002000 _— INB1 sCALL oo INPA - ENPUT CNE CHARACTER | | €6$e@600968 
006742 006736 R | | ) so . a 
906743 OO100D aJMP* = g INPS TERMINATE EXIT | ECSE700969 
006744 106752 eee i a | | a ee 
996745 002000 aCALL eCUTA CUTPUT ONE CRARACTER | Gcse@ao0970 
006746 007334 kK | | t se 
— = 906747) «044002 o INR aI NFB : —«GCSe90US7t 
006750 044001 atyR eT NPS | | —  6CSssoc0s72 — 
006751 g01000 | oJMPe Pat} EXIT | GCSS100973 
006752 100000 ~~ | | , | a 
. 006752 INPE GBS 0 | 6699200974 
006753 001000 aJMP eING1 | | | | €09¢9300975 
006754 006741 R | 
er ee * 6 6669310976 
go7coo eCRG 207000 B&B 6696320977 
G07000 a01000 EGGX sJMP  ~° sEEGN COMMGN ENTRY POINT (TTY)s(CONSCLE IF Aw=) & COSS3I097E 
OU7001 006150 R | | sa | 
~QG7cC02 001000 a dP sERGNe2 (CONSCLE) | - &§8 CCSS340979 


GO7003 006152 k 
2 Sg @ C09S$380986 


* 
‘ | CC9$400981 
. INPUT ONE CrARACTER (EDITED) : 7 cossso0ge2 
PP Se : | | | | 6695600983 
007604 002000 INCI oCALL «I NPE | COSS7G0984 


QG7COS 006752 k 
OG7C05 gO010u0 sJvPe a INFC TERMINATE: EXiT | CCSSS00985 
UG7CO7 107053 R- | 

Z 


gco7css 


© 


© 
~. _ 


PAGE ¢00040 
~9g7010 006180 sERAI o?\e BACKSLASP © 6OS9900966 | 
QO7011 000334 eS aes 
go7c12 oo1010 oJaZ a INC! _ ABORT INPUT EXIT C1ccacose7 
07013 0070350 k | SR ee ae pee 
G07014 906130 sERAT = 9° NP RESTORE A G100100960. 
907015 000354 se ae 
907016 O06150 sERAIL a0da7 BACKARROW €10¢200989 
907017 900337 7 ORS > 
007020 001010 eJvaZ aI NCS DELETE ONE CHARACTER EXIT 100300990 
907021 007026 R | | | | Ga ee eels 
007022 «006180 eEMAL = 0387 RESTORE A- . 6106400998 
007023 000387 - aoe bie 
oo7ce24 044006 oInR eo INPC €10c500992 
G07025 044005 a INR a INPC G10c600g9g93 
007026 044004 INCL oI NR a INPC 100700994 
Q07027 044003 a TNR a INPC C100800995 | 
Q07080 044002 INC2 os INR a INPE - Giocgo0996 ~ 
OO703) 044001 | —@ TNR 2INPC €101000997. 
007032 001000 lg IMP® = G EXET 6161100998 
"907033 “160000 | | age 
— OO7035 INPC o6ES 20 ¢101200999 
= 970346 001000 aJMP a ENCS €101301000 
907038 007004 R . | 7 
) . * : G108404008 
«  INPLY ONE ALPRA CHARACTER FROM TTY KEYBOARL T0.A REG €103501002 
oe * : | £101601003 
vu7e36 oo2000 IND4 eCaLhL oe» INPC ENPUT CONE CHAR G1G1701006 
0070387 007055 R . | 7 
oc7ce40 «6901000 ~ eJMP® =e INPD TERMINATE EXIT €401801005 © 
007041 107067 R | ; 
007042 001000 oJNP aINE2 ABORT INPUT EXIT C161901006 
907043 «907064 R- | | PROT wane 2 
GO7044 001000 adMP eING! DELETE PREVICS CHARACTER EXIT —-G202004007 
UG7645 007062 K | iz: eh 
007046 006140 eSLél e0tcl CHAR A : €104101006 
0070467 onos0! oa _ 
oo7080 001004 | a JAN s INES INVALIE INPUT ¢162201909 
OG7C51 007072 k | 7 | | 
QG7CS2 006140 eStyl Ode CHAR 2 C1i6Z2301010 
Ou7053 oan0s2 | ; . = 
0o7054 001002 oJaP eINLQ INVALIL INPUT Cicedo1cia 
o0o7072 R | 


Oo 


LD ::. 


007071 
007072 
907073 


007074 


007075 


Q07076 
G07077 
007100 


_. 0G7101 


— 007102 
097108 
007104 
007105 


GO7106 © 
w07107 


QG7110 
OO7111 


, QO7112— 


UO/711d 
OO7114 
UC7415 
QG7116 


OO7117— 


oo7120 
Go7124 
Gu7vi2z 


| | | 


C0004! 


— 006420 


000333 
044006 
044005 
044004 
044003 
— 044002 
044001 
001000 


y 100000 
001000 


007036 
002000 
007473 


_ 002000 


007067 


001000 


001000 
007125 
0010u0 
007123 


0544414 
902000 
007067 
g01000 
107130 
oo10cd 
007125 
oo100N 
007076 
114430 
044006 
044005 


001000 
(007064 


107490 


Q04250— 


IND1 


IND2 


sAEDI 


a TNR 
oIanR 
a INR 
a IaAR 
@InR 
eINR. 
a JMPe 


ebeSs. 
aJMP 


eC AL 


aJMP 


0339 


a INPD 


eINFD 
a INPD 
a INPD 
eI NPD 
aI NPD 
rhe) 


rae 
eI NI4 


 gOUTG 


eINb2 


oe 


RESTORE A 
NORMAL EXIT 
DELETE PREVIOS CHARACTER EXIT 


ABORT INPUT EXIT 


—EXET 


INVALID INPUT*=PRINT MESSAGE 


ABORT 


INPUT THE LETTER CRARACTERS FRCM TTY 


eCALL 
aJMP® 
aJMF 
oJPP 


aL RLA 
oSTA 


eC all 


oJvP* 
oJMP 
aJMP 
aCQAa 


2 TAR 
a IAR 


a INPD 
s INPE 
a INE@ 
a INES 
28 

aTSG2 
e INPD 
eINPE 
aINE2 
o INES 
aTSCe2 


es INPE 
a I NFE 


INPUT ALPHA GHAR 


TERMINATE Exit 


ABORT INPUT EXIT 
DELETE PREVICS CHARACTER EXIT 


INPUT ALPHA CHAR 
TERMINATE EXIT 
ABORT INPUT EXIT 


DELETE PREVIOUS CrARACTER EXIT 


NORMAL EXIT 


(QO : 


ciazSo1012 


Ciczéqiois 
Gid270101¢4 
Ciczsoiois 
Cic2go1oie 
Gicgwocioi7 
Cicero101s 
Cics2o10is 


Ci1cIsoL0ze 
Ci1cg4oio2s. 


Gi03501024 


—G103601023 


GIGI701024 | 


€10ss8o1d2s 


Ci6Vs01026 
Ci1c4colde? 


CiGd101026— 


Cicazo1029 
Cio4do0i030 
c10440103% 
c104801034 


CiC4601053 © 
C104701034 


Cicaso1035 


Cicagg1os6 
Cic&go1037 
C1OE101006 


Cicg&2ecioss 
C108 s01cad 


| 


eo 
PAGE | 


— 007123 
007124 
067125 
007126 


Oo7127— 


007130 


— OG7190 


 OO7431 


007132 


OO71SS° 
O07154— 
(007195 — 
BO7196 


907137 


_-@07140 


907141 
907142 


007143 


007144 


007145 
© 007146 
o07147 


007180 


007151 
~—6Q07152 
007153 
— OO7154 
GO7155 
907156 


QOO7157— 


6967160 
UO7 161 
00/162 
QO7168 
007164 
007165 
00/7166 
(007167 
§07170 


600062 


044004 
0446003 
044002 
044001 
001000 
100000 


001000 


007076 


902000 
007033 
001000 
107370 
001000 


007165. 
001000 


007163 
006140 
000254 
001010 
007161 
006340 


> , } a 6] 


000002 


— 901010 


007157 
002000 
007475 
Q01000 
007165 
044010 
044007 
044006 
044005 
044004 
0440083 
04a002 
044001 
001000 
yoocoo 


— 


INEL INR 


a INR 
INEZ a IAR 
a INR 
aJMPe 
INPE BES 
adwP 
* 


INFS eCaLh 
a IMPs 
aJdMP 
oJMP 
2SUGl 
aJhZ 
Susi 
aJdAZd 
eCaLe 
aJMP 

INFS oI NR 
oe INR 

INFS 2 TNR 
a INR 


INF oo INR 
a INR 


INF2 oo INR 


# INR 
aJMPx 


a INPE 
a INPE 
a INPE 
a INFE 
af 


Pa) 


a INES 


a INC 
a INPF 
aI NF2 


eINFl | 


20284 


o INF S 


DELETE PREVIOS CHARACTER EXIT 


ABORT INPUT EXIT 


EXIT. 


“w  INPUY PERIQDsCOMMA FOR MESSAGE TERMINATOR 


INPUT ONE CHARACTER 


FERMINATE EXIT 


ABORT INPUT EXIT 


DELETE PREVIGS CHARACTER EXIT 


COMMA 
COMMA EXIT 

PERIGU 

PERICD EXIT 

PRINT INVALID MESSAGE 


ABORT 


NORMAL EXIT 

COMMA EX]T 

DELETE PREVIOS CRARACTER EXIT 
ABORT INFUT EXIT 


EXIT 


Gios4c106s 
C1OS501042 
Cicsécsoay 


 «C1GE70L088 © 
108801048 © 


G106901046 
 G 806001047 


Gieei0s04e 
~-G¥06201049 


G10EIO1050 


6106401058 
: c1c6s01052 
-¢106601053 
106701056 


6106801055 
ciceso10se~ 


6167001087. 
—¢107101058 
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